Fix url's thing-at-point beginning-op (Bug#32028)

* lisp/thingatpt.el (url): Fix beginning-op making.

diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el
index 7fe99b0714c057fbe51017cfd727595d1750d216..6a978fe96eff7476269c8283ffa6ed746e6584d4 100644 (file)
--- a/lisp/thingatpt.el
+++ b/lisp/thingatpt.el
@@ -474,7 +474,7 @@ looks like an email address, \"ftp://\" if it starts with
 
 (put 'url 'end-op (lambda () (end-of-thing 'url)))
 
-(put 'url 'beginning-op (lambda () (end-of-thing 'url)))
+(put 'url 'beginning-op (lambda () (beginning-of-thing 'url)))
 
 ;; The normal thingatpt mechanism doesn't work for complex regexps.
 ;; This should work for almost any regexp wherever we are in the